home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
MIS.TXT
< prev
next >
Wrap
Text File
|
1991-08-20
|
4KB
|
168 lines
;
; MIS -- (c) 1990 Chris Butler
;
;VIDEO M
set all off
goto top
all:
set all on ; will cycle thru all modules
top:
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw 488
global boxh 115
global boxtitle "Max with Ed the engineer"
set h 17 ; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14;
cload max.clp 30 1 0 ; max's face
tran on 15
cload cover.clp 32 0 1
marc:
set boxtitle " Max with Mary from MIS"
set entrypoint "entry_11"
pload palette1.pcx 1
palette 1
pfree 1
cload mis.clp 31 1 0
merge toursubs.txt
call steps.txt mis
label502:
newbgrnd "mis1.pcx" 80 0 0 0 100 5
;mouse on
set str1 "Hey, Max. Everybody down in MIS has been talking about how well the "
set str2 "MAXIMO Local Area Network has worked for us."
say 0 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label503
noise 500 200 50
waitkey 100
goto label1a
label503:
set str1 "And MAXIMO's SQL database lets us import and export cost data from"
set str2 " the mainframe database without programming!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label502
label504:
set str1 "You know we've been thinking about installing MAXIMO at headquarters "
set str2 "for facilities maintenance. Can we modify the system for use there?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label503
label505:
set str1 "MAXIMO makes that simple, Mary. You probably want to start with chang"
set str2 "ing some screen formats. Let me show you MAXIMO's Screen Painter ..."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label504
label506:
newbgrnd "27a.pcx" 80 0 1 0 100 9
set str1 " ... first, we start with the standard Equipment Screen ... "
set str2 " "
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label505
label507:
newbgrnd "27b.pcx" 80 0 1 0 100 9
set str1 "Here I've changed the field names, sizes and meanings. And MAXIMO let"
set str2 "s me show budget fields to management and hide them from other users."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label506
label508:
newbgrnd "28.pcx" 80 0 1 0 100 9
set str1 "Here we've changed security so that only I can approve purchase order"
set str2 "s. I can even set a dollar amount for PO authority."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label507
label509:
newbgrnd "29.pcx" 80 0 1 0 100 9
set str1 "And you can also modify the value list lookup tables. For example, y"
set str2 "ou might want to identify different types of facility work orders."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label508
label510:
set str1 "That's great. A totally different MAXIMO! Customized for facilities "
set str2 "maintenance's very different needs!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label509
label511:
set str1 "Max, I understand PSDI is an IBM Business Partner. Can they help "
set str2 "with our LAN designs?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label510
label512:
set str1 "Sure thing Mary. The IBM people are interconnectivity experts. PSDI c"
set str2 "an have IBM Network Design Engineers come onsite to design a network."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label511
labl512a:
newbgrnd "network.pcx" 112 0 1 0 100 9
set str1 "Here's a diagram the PSDI sales rep left me for a new LAN configura"
set str2 "tion."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label512
label513:
newbgrnd "mis1.pcx" 80 0 0 0 100 9
set str1 "Wonderful! This will really get us up to speed in a hurry. PSDI and I"
set str2 "BM. Sounds like the winning combination."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" labl512a
label514:
set str1 "Yup. Well, I'll see you later, Mary. I've got a meeting with Patrick."
set str2 " "
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label513
;mouse off
if @all==on linkit
link master.txt entry_11
linkit:
link mgr.txt all
; SUBR MIS